FOR EACH mon_ NO-LOCK,FIRST _connect NO-LOCK WHERE _Connect-Usr = INTEGER(mon_user1) BREAK BY _connect-usr :
    DISP mon_userid mon_sid _Connect-Name _Connect-Usr.
END.
